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-SEP-1984 7: MTHRTL.SRCJOTSMULCD.MAR; 1 (1) 
TITLE OTsseuico - D COMPLEX*16 Multiplication Routine 
-IDENT /1-00 3; File: OTSMULCD.MAR 
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ABSTRACT: 


A routine to provide compiled code support for D COMPLEX*16 
multiplication. 


ENVIRONMENT: User Mode, AST Reentrant 


AUTHOR: Steven B. Lionel, CREATION DATE: 13-July-1979 
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-SBTTL. Edit Histo 
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4 -SBTTL DECLARATIONS 

; INCLUDE FILES: 

g 3 EXTERNAL DECLARATIONS: 

-DSABL GBL ; Prevent eee iecee 


: : symbols f rom eeree 
3; automatically global. 


MACROS: 


PELEXED|_:E AAAS & & 
—oO ~O 


WN OOONOUS 


; EQUATED SYMBOLS: 


> OWN STORAGE: 


~ 
-—O 


: ; PSECT DECLARATIONS: 


: -PSECT _CTSSCODE PIC, USR, CON, REL, LCL, SHR, 
EXE, RD, NOWRT. LONG 
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- 0D COMPLEX*16 Mult iplicati pat 91:35:98 ERTHRTL. SREJOTSMUL CD .MAR: 1 
a «-SBTTL OTSSMULCD_R3 = D COMPLEX*16 Multiplication 
FUNCTIONAL DESCRIPTION: 


This routine sqpeutetes the D COMPLEX*16 product of 
two D COMPLEX®*16 values. 


CALLING SEQUENCE: 
product.wdc.v = OTSSMULCD_R3 (multiplier.rdce.v, multiplicand.rdc.v) 
INPUT PARAMETERS: 


:+ 


multiplier - D COMPLEX*16 passed by VALUE! 
Comprised of: 
az4 ; Offset of real part of multiplier 
b= 12 ; Offset of imaginary ~~ of multiplier 
multiplicand - D COMPLEX*16 passed by VALUE! 
Comprised of: 
c= $8 ; Offset of real part of multiplicand 
d = 28 ; Offset of imaginary part of multiplicand 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


FUNCTION VALUE: 


The D COMPLEX*16 product is returned in registers RO through R3! 
This is a viclation of the VAX calling standard, but is allowed 
because this is a compiled code support routine. 


SIDE EFFECTS: 


Modifies registers RO-R3! 

Possible error signals are: 
SS$_ROPRAND - Reserved operand 
MTHS_FLOOVEMAT = Floating overflow 


-ENTRY OTSSMULCD_R3, “M<R4, R5> 
MTHSFLAG_JACKET ; Establish math error handler 


MOVAB G*MTHSSJACKET_HND, (FP) 
3 set handler address to jacket 
3; handler 


ggg OTSSMULCD RS = p COMPLERS Ta on Routing 1 ~EEpm TSS 91:35:98 PARANTS Baers oe OO ars t 


} : Complex multiplication is defined as: 
131 : real part = ac-bd 
: : imaginary part = ad+¢bc 
0 Wat 0 AC 134 ° MULD3 a(AP), c(AP), RO : RO-R1 = ac 
4 ac 0¢ at 135 MULD$ b(AP). G(AP). RO : RO-RS = bd 
50 § 1 SUBD2 R4, RO + RO-R1 = ac-bd 
52 1¢ AC 9 AC 1 MULDS a(AP), d(AP), R2 + R2-R3 = ad 
14 aC OCA 1 : MULD3 b(AP). CCAP). RG + R4-R5 = be 
52. «5 1 ADDD2 R4, RO + R2-R3 = ad+be 
109 RET ; Return with product in RO-R3 
142 END 
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OTSSMULCD 16-SEP-1984 01: AX/VMS Macro v04-00 Page 6 | 
Symbol table g7SEpajobe 41:37:99 Atanteeaedorenucco.mar:1 2% (2), 
A = 
B = 
¢ zs 
i) = 1¢ 
thy aaa HND eeeteeee =X 4 
OTSSMULCD_R3 00000000 RG 1 
bee zresene ww esecera 
: Psect synopsis ! 
ewer center eam one oa} 
PSECT name Allocation PSECT No. Attributes 


- ABS 44344 ( 8-3 89 ( 0.) NOPIC USR CON ABS L 
-OTSSCODE 000000 ( 40.) O1¢ 1.) PIC USR CON REL L 


pero meme mem mene nme man aoee $ 


! Performance indicators ! 


grec oe etree cece er ere nme ew ean } 


CL = NOEXE NORD NOWRT NOVEC BYTE 
CL SHR EXE RD NOWRT NOVEC LONG 


Phase Page faults CPU Time Elapsed Time 


Initialization 0 .09 90:00: .78 
gonnene processing 1 4 " 0:00:04.96 
BS 3-8 00:00:02.94 

Syabol table sort 0: 0. Bi -00 
s 2 41 0:00:00.4 : 3:8 56 
wed table output 0:00:00.0 0:00:00.09 
Psect synopsis output tf 01 00:00:00.01 
Cross-reference output 0:00: 3. 0 0:00:00.00 
Assembler run totals 280 :00:02.02 0:00:11.46 


the working te Limit was 900 pegee 
250 bytes (5 pages) of virtua memory were used to buffer the intermediate code. 
andl were 10 pages of symbol table space er iecatee to hold 6 non-local an local symbols. 
202 source th As were read in Pass 1, producing 11 object records in Pass 2. 
page of virtual memory was used to define 1 macro. 


Pee n noes e erm eee mene wmn eros + 


! Macro Library Statistics ! 


ieepnamamndenen woe et ecm one ae aaah 


Macro Library name Macros defined 
~$255$DUA28: (SYSLIBJSTARLET.MLB; 2 Sage Ga Ke 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSMULCD/OBJ=0BJ$:OTSMULCD MSRC$:MTHJACKET/UPDATE=(ENHS :MTHJACKET) #MSRC 
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